Sub muestra_For_Each()
    Dim Lista_Elementos As Variant
    Lista_Elementos = Array("uno", "dos", "tres")
    Dim elemento As Variant
    For Each elemento In Lista_Elementos
       Debug.Print "Elemento (" & elemento & ")"
    Next
End Sub
